home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGIALS
/
PTUTOR2B.LZH
/
TIMEDAT4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
390b
|
13 lines
program Get_Time_And_Date; (* For TURBO Pascal 4.0 only *)
uses Dos;
var Year,Month,Day,Weekday : word;
Hour,Minute,Second,Hundredths : word;
begin
GetTime(Hour, Minute, Second, Hundredths);
GetDate(Year, Month, Day, Weekday);
Writeln('The date is ',Month:2,'/',Day:2,'/',Year);
Writeln('The time is ',Hour:2,':',Minute:2,':',Second:2);
end.